home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / comms / serterm / !SendTerm / Terminal < prev   
Text File  |  1995-05-07  |  7KB  |  118 lines
  1. *BASIC
  2. PAGE=(PAGE+&600)
  3. NEW
  4. *FX20,6
  5.    10REM >BBC Terminal
  6.    40*FX15
  7.    50*FX12 4
  8.    60*FX11 24
  9.    80PROCfont:CALL FNassembleterm
  10.    100END
  11.   120DEF FNassembleterm
  12.   130DIM code% 512
  13.   140FOR pass%=0 TO 2 STEP 2
  14.   150osbyte=&FFF4:osword=&FFF1:oswrch=&FFEE:osasci=&FFE3:oscli=&FFF7
  15.   160escapeflag=&70
  16.   170P%=code%
  17.   180[OPT pass%
  18.   200.initialise
  19.   210  LDA#&E5:LDX#&FF:LDY#&00:JSR osbyte
  20.   220  LDA#&07:LDX#&08:LDY#&00:JSR osbyte
  21.   230  LDA#&08:LDX#&08:LDY#&00:JSR osbyte
  22.   240  LDA#&02:LDX#&02:LDY#&00:JSR osbyte
  23.   250  LDA#&03:LDX#&00:LDY#&00:JSR osbyte
  24.   260  LDA#&16:JSR oswrch
  25.   270  LDA#&03:JSR oswrch
  26.   290  LDY#0
  27.   300.ploop
  28.   310  LDA start_text,Y:JSR oswrch:INY:CMP #0:BNE ploop
  29.   340.mloop
  30.   350  LDA#&91:LDX#&01:LDY#&00:JSR osbyte:BCS checkkbd:TYA:JSR oswrch
  31.   380.checkkbd
  32.   390  LDA#&91:LDX#&00:LDY#&00:JSR osbyte:BCS mloop:CPY#13:BNE sendchar
  33.   430  LDY#10:.sendchar
  34.   450  LDA#&8A:LDX#&02:JSR osbyte:BCC mloop:JMP sendchar
  35.   670.start_text
  36.   680  EQUS "Terminal V1.02 by The Angelos tou Thanatou 18/01/95"
  37.   690  EQUB 10:EQUB 13:BRK
  38.   710]
  39.   720NEXT
  40.   730=code%
  41.   750DEFPROCfont
  42.   760PRINT"Exploding characters! This may take a moment or two... ";
  43.   770DATA 1720000000000000000017211818181818001800172212363600000000001723
  44.   780DATA 36367F367F36360017240C3F683E0B7E1800172562660C18306646001726386C
  45.   790DATA 6C386D663B00172710303000000000001728060C0C0C0C0C0600172930181818
  46.   800DATA 18183000172A105438FE38541000172B0018187E18180000172C000000000030
  47.   810DATA 3060172D0000007E00000000172E0000000000303000172F02060C1830604000
  48.   820DATA 17303E63676B73633E0017311838181818183C0017323E6303061C307F001733
  49.   830DATA 7F03060E03633E001734060E1E367F06060017357F607E0303633E0017360E38
  50.   840DATA 307E63633E0017377F03060C0C18180017383E63633E63633E0017393E63633F
  51.   850DATA 070E3800173A0018180000181800173B0018180000181830173C0C1830603018
  52.   860DATA 0C00173D00007F007F000000173E30180C060C183000173F3C660C1818001800
  53.   870DATA 17403E6367696F603E0017413E63637F6363630017427E63637E63637E001743
  54.   880DATA 3E63606060633E0017447E63636363637E0017457F60607E60607F0017467F60
  55.   890DATA 607E6060600017473E63606763633E0017486363637F6363630017493C181818
  56.   900DATA 18183C00174A1F06060606663C00174B63666C786C666300174C606060606060
  57.   910DATA 7F00174D63777F6B6B636300174E63737B7F6F676300174F3E63636363633E00
  58.   920DATA 17507E6363637E60600017513E6363636D663B0017527E63637E6C6663001753
  59.   930DATA 3E63603E03633E0017547E1818181818180017556363636363633E0017566363
  60.   940DATA 6363361C08001757636B6B7F77634100175863361C081C36630017596363633E
  61.   950DATA 060C1800175A7F070E1C38707F00175B7C60606060607C00175C006030180C06
  62.   960DATA 0000175D3E06060606063E00175E183C7E5A18181800175F00000000000000FF
  63.   970DATA 17603018000000000000176100003E6363673B00176260607E6363736E001763
  64.   980DATA 00003E6360633E00176403033F6363673B00176500003E637F603E0017661C36
  65.   990DATA 307C30303000176700003B67633F033E176860606E736363630017690C001C0C
  66.  1000DATA 0C0C0C00176A1800381818181830176B606063667C666300176C381818181818
  67.  1010DATA 3C00176D0000767F6B6B6300176E00006E7363636300176F00003E6363633E00
  68.  1020DATA 177000006E73637E6060177100003B67633F0303177200006E7B706060001773
  69.  1030DATA 00003F603E037E00177418307C3030361C0017750000636363673B0017760000
  70.  1040DATA 6363633E080017770000226B6B7F36001778000063361C366300177900006363
  71.  1050DATA 673B033E177A00007F061C307F00177B0C18187018180C00177C181818181818
  72.  1060DATA 1800177D3018180E18183000177E62D68C0000000000177FFFFFFFFFFFFFFFFF
  73.  1070DATA 178003030606761C0C0017811C636B6B7F77630017821C36006B6B7F36001783
  74.  1080DATA FE9292F28282FE00178466998142819966001785186642663C18180017861866
  75.  1090DATA 0066663E063C17870701026494609060178818284F814F28180017891814F281
  76.  1100DATA F2141800178A3C2424E742241800178B182442E724243C00178C0000000000DB
  77.  1110DATA DB00178DF15B555100000000178EC0CC183060DB1B00178F00003C7E7E3C0000
  78.  1120DATA 17900C1818000000000017910C0C1800000000001792000C183030180C001793
  79.  1130DATA 0030180C0C18300017941B36360000000000179536366C000000000017960000
  80.  1140DATA 00000036366C17970000003C000000001798000000FF0000000017990000007E
  81.  1150DATA 00000000179A77CCCCCFCCCC7700179B00006EDBDFD86E00179C18187E181818
  82.  1160DATA 1818179D18187E187E181818179E3C6660F666666600179F3E6666F666666600
  83.  1170DATA 17A0000000000000000017A1301800000000000017A20C1800000000000017A3
  84.  1180DATA 1C36307C30307E0017A400663C66663C660017A5663C18187E18180017A61818
  85.  1190DATA 18001818180017A73C603C663C063C0017A8660000000000000017A93C4299A1
  86.  1200DATA A199423C17AA1C061E361E003E0017AB003366CCCC66330017AC7E0000000000
  87.  1210DATA 000017AD0000007E0000000017AE3C42B9A5B9A5423C17AF000000FF00000000
  88.  1220DATA 17B03C663C000000000017B118187E1818007E0017B2380418203C00000017B3
  89.  1230DATA 380418043800000017B40C1800000000000017B50C1866000000000017B6CCDE
  90.  1240DATA B3333F33330017B7000000181800000017B8FFDB981E181B3F0017B9FBDB9B1F
  91.  1250DATA 1B1B3B0017BADECC8C0C0C0C1E0017BB00CC66333366CC0017BCDEF3B3333333
  92.  1260DATA 1E0017BD40C0404F410F080F17BEF3F3B31E0C0C1E0017BFBEE3E36336366300
  93.  1270DATA 17C00C18423818183C0017C11C3663637F63630017C27E33333E33337E0017C3
  94.  1280DATA 7F6360606060600017C41C1C363663637F0017C57F33303E30337F0017C67E66
  95.  1290DATA 0C1830667E0017C77733333F3333770017C83E63637F63633E0017C93C181818
  96.  1300DATA 18183C0017CA63666C786C66630017CB1C1C36366363630017CC63777F6B6363
  97.  1310DATA 630017CD63737B6F6763630017CE7E00003C00007E0017CF3E63636363633E00
  98.  1320DATA 17D07F3636363636360017D17E33333E3030780017D230183C6666663C0017D3
  99.  1330DATA 7F63301830637F0017D47E5A18181818180017D56666663C18183C0017D63E08
  100.  1340DATA 3E6B3E083E0017D76363361C3663630017D83E086B6B3E083E0017D93E636363
  101.  1350DATA 3636630017DA6666007E18187E0017DB6600663C18183C0017DC0C183B6E666E
  102.  1360DATA 3B0017DD0C181E301C301E0017DE0C187C666666060617DF0C18003818183C00
  103.  1370DATA 17E00C18660066663E0017E100003B6E666E3B0017E21E33333E33333E6017E3
  104.  1380DATA 000066361C18303017E43C60303C66663C0017E500001E301C301E0017E63E0C
  105.  1390DATA 183060603E0617E700007C666666060617E83C66667E66663C0017E900001818
  106.  1400DATA 18180C0017EA0000666C786C660017EB6030181C3663630017EC000033333333
  107.  1410DATA 3E6017ED000063331B1E1C0017EE0C3E603C603E060C17EF00003E6363633E00
  108.  1420DATA 17F000007F363636360017F100003C66667C606017F200003E63380C780017F3
  109.  1430DATA 00003F6666663C0017F400007E1818180C0017F50000733333331E0017F60000
  110.  1440DATA 3E6B6B3E181817F7000066361C1C363317F80000636B6B3E181817F900006363
  111.  1450DATA 6B7F360017FA6600003818183C0017FB6600006666663E0017FC0C18003C6666
  112.  1460DATA 3C0017FD0C18006666663E0017FE0C186B636B7F360017FF66006666663E063C
  113.  1470RESTORE
  114.  1480FORL=1TO70:READA$:FORI%=1 TO LEN A$ STEP 2:VDU EVAL("&"+MID$(A$,I%,2)):NEXT:NEXT
  115.  1490PRINT"done!"
  116.  1500ENDPROC
  117.   
  118. RUN